VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "NpcClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Implements EntityBaseClass
Public Health As Integer
Public X As Single
Public Y As Single
Public Fire As Boolean
Private FireFrame As Byte: Private FireTick As Long: Private FireStart As Long
'Npc specific
Public NpcType As Byte
Private Property Let EntityBaseClass_Fire(ByVal RHS As Boolean)
Fire = RHS
End Property
Private Property Get EntityBaseClass_Fire() As Boolean
End Property
Private Property Let EntityBaseClass_Health(ByVal RHS As Integer)
Health = RHS
End Property
Private Property Get EntityBaseClass_Health() As Integer
EntityBaseClass_Health = Health
End Property
Private Property Let EntityBaseClass_X(ByVal RHS As Single)
X = RHS
End Property
Private Property Get EntityBaseClass_X() As Single
EntityBaseClass_X = X
End Property
Private Property Let EntityBaseClass_Y(ByVal RHS As Single)
Y = RHS
End Property
Private Property Get EntityBaseClass_Y() As Single
EntityBaseClass_Y = Y
End Property
Private Sub EntityBaseClass_Draw()
End Sub
Private Sub EntityBaseClass_Update()
End Sub
Public Sub EntityBaseClass_Ignite()
Fire = True: FireDeath = GetTick + 30000
End Sub


